|
CATIA V5 Programmierung : Hilft ein externer Editor weiter?
Bobby_Joe2001 am 26.04.2006 um 20:08 Uhr (0)
Probiers doch erst mal als VBScript, dass von Windows ausgeführt wird.Einfach eine leere Textdatei erstellen und sie z.B.test.vbsnennen.hier einfach das hier einfügen:On Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number 0 Then Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True End IfDann hast du zugriff auf die CATIA Objekte.Für VB.Net oder Excel VBA wärs genau der Selbe Code.------------------Du musst die Leute einmal richtig ärgern, dann wirst du end ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro für ein Wort im Baum finden
Bobby_Joe2001 am 23.05.2006 um 20:56 Uhr (0)
Ich will ja nicht so sein.Also hier mal nen kleiner kompakter Beispielcode:Code:Sub CATMain() Set MySel = CATIA.ActiveDocument.Selection MySel.Search "Name=" & InputBox("Was suchst du", "Suche", "*") & ",all" If MySel.Count 0 Then For i = 1 To MySel.Count MsgBox MySel.Item(i).Value.Parent.Parent.Name Next End IfEnd SubGrußBobby------------------Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.Konrad Adenauer
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VB Fenster Programmierung
Bobby_Joe2001 am 02.05.2006 um 21:03 Uhr (0)
Zitat:Original erstellt von walterwerner:Hallo,meine Makros sollen nur unter Windows lauffähig sein. Hätte da nochmal 2 Fragen:1) Ist VB und VBA das gleiche. Macht es für mein Vorgaben Sinn sich VB anzueignen oder bin ich auf dem falschen Weg und muss VBA lernen?2) Soweit ich bis rausbekommen habe, wird für VB das Microsoft Visual Studio (Visual Basic) benötigt, während VBA innerhalb von Excel programmiert wird. Ist das so richtig?GrußHallo!1. VB und VBA sind sehr ähnlich. Beides basiert auf Basic. Wenn d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GS umbenennen
Bobby_Joe2001 am 23.05.2006 um 20:00 Uhr (0)
GS = Geometrisches Set??Wenn ja dann so:Neues Set erstellen:Code:Sub CATMain() Set MyNewhybridbody = CATIA.ActiveDocument.Part.HybridBodies.Add MyNewhybridbody.Name = "klaus"End SubUnd so wird bestehender Name ganz einfach geändert:Code:Sub CATMain() Name vorher MsgBox CATIA.ActiveDocument.Part.HybridBodies.Item(1).Name Jetzt wird geändert CATIA.ActiveDocument.Part.HybridBodies.Item(1).Name = "da gugst du was" Name nacher MsgBox CATIA.ActiveDocument.Part.HybridBodies.Item(1).NameEnd SubGrußBo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makroprogrammierung mit Visual Basic Script
Bobby_Joe2001 am 28.05.2006 um 16:23 Uhr (0)
Hallo alle miteinander,habe gerade bei Amazon gestöbert und gesehn, dass es eine neue Auflage des Buches "CATIA V5 - Effiziente Konstruktion mit Makros" gibt.Nennt sich jetzt "CATIA V5 Makroprogrammierung mit Visual Basic Script".Hat schon einer mal reingeschaut und kann beurteilen ob sich der Kauf lohnt?Achja, hier der direkte Link:GrußBobby------------------Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.Konrad Adenauer
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bewusste Wartezeit integrieren
Bobby_Joe2001 am 23.05.2006 um 19:25 Uhr (1)
Zitat:Original erstellt von Tapani.:Hallowir haben folgende Lösung am Start die mit einem nakten Windows XP auskommen sollte:das WScript-Objekt hält ein Sleep bereit. Ich habe bisher keinen Weg gefunden das WScript-Objekt aus einer catvbs-Datei heraus anzusprechen. Deshalb muß man einen Umweg über cscript.exe nehmen. Das hat zur Folge, daß man einen absoluten Pfad im Script hat. Aber wenn der für alle erreichbar gewählt wird, ist das ja nicht so dramatisch...:Das mit Vbs is schonmal gut.Und das mit dem a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Makro aus VBA starten
Bobby_Joe2001 am 26.04.2006 um 20:01 Uhr (0)
Das hier hab ich gerade getestet und funktioniert einwandfrei:Sub CATMain() Dim Params() Set SServ = CATIA.SystemService LibPath = "CATDLN://MAKROS" ScriptName = "test.CATScript" FunctionName = "CATMain" Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params) End Sub------------------Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.Konrad Adenauer
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ordner mit Inhalt löschen
Bobby_Joe2001 am 03.01.2007 um 12:41 Uhr (0)
Hallo,hab dir was kleines gebastelt, das hier funktioniert bei mir (als CATVbs getestet):Code:Sub CATMain() Set FS = CATIA.FileSystem Set MyFolder = FS.GetFolder("Z:loesch_mich") For Each MyFile In MyFolder.Files FS.DeleteFile MyFile.Path Next CATIA.FileSystem.DeleteFolder MyFolder.PathEnd SubAllerdings nicht bei schreibgeschützten Datein.Noch ein gesundes neues Jahr!Gruß------------------Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.Konrad Adenauer
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bewusste Wartezeit integrieren
Bobby_Joe2001 am 24.05.2006 um 19:06 Uhr (1)
Zitat:Original erstellt von Lusilnie:Hallo Bobby_Joe2001,und wie umgehe ich das Problem, das ich "wscript.exe" mit vollständigem Pfad angeben muß, da es sonst nicht läuft? Gibt es da irgendwelche Settings in den Tools oder im Environment?mfg,LusilnieDen Pfad kannst du dier so zusammenbasteln:Code:Sub CATMain() MyWscriptPath = CATIA.SystemService.Environ("SystemRoot") & "System32wscript.exe" CATIA.SystemService.ExecuteProcessus CStr(MyWscriptPath)End SubGrußBobby------------------Du musst die Leute ein ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einfügen in neues Part
Bobby_Joe2001 am 21.05.2006 um 12:55 Uhr (0)
Hallo,also Catia bennent das automatisch um, weil du ja mit dem jetztigen Code deinen Körper kopierst, aber in das selbe Part wieder einfügst (nicht in ein Neues wie du beschrieben hast!). Weil der Körper mit dem selben Namen schon existiert wird er umbenannt.Häng mal statt deinem letzten Absatz (Einfügen ...) folgenden Code an:Code:Neues Part erstellenSet MyNewPart = CATIA.Documents.Add("Part")Im neuen Part gleich das Part selbst selektierenMyNewPart.Selection.Add MyNewPart.PartKoerper einfügenMyNewPart.S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSet in Body / Körper
Bobby_Joe2001 am 28.04.2010 um 20:56 Uhr (0)
Hallo,spontan fällt mir die Möglichkeit ein, per Selection darauf zuzugreifen.Code: Set obj_Part = CATIA.ActiveDocument.Part Set obj_Body = obj_Part.MainBody Set obj_Selection = CATIA.ActiveDocument.Selection obj_Selection.Clear obj_Selection.Add obj_Body obj_Selection.Search "CATKnowledgeSearch.AdvisorParameterSet,sel" For i = 1 To obj_Selection.Count Set obj_ParameterSet = obj_Selection.Item(i).Value obj_ParameterSet.DirectParameters.CreateString "OP", "" Next obj_Selection.Cle ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verknüpfung einer Zeichnung ändern
Bobby_Joe2001 am 23.05.2006 um 20:31 Uhr (0)
Zitat:Original erstellt von mkna:Hallo Bobby_Joe2001Kannst Du mir den Befehl für den Schritt"Fügt das part als neuen link zur betreffenden Ansicht hinzu"nennen ?MartinBitteschön Code:Sub CATMain() Objectverweis für 3. View vom aktiven Blatt Set MyView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(3) Objectverweis für 1. Dokument in der Dokumentliste, das ist z.B. ein Part Set MyDoc = CATIA.Documents.Item(1) Alle Links der Ansicht löschen MyView.GenerativeLinks.RemoveAllLinks Der Ansich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hybridbodies im SpecTree von unten nach oben durchlaufen
Bobby_Joe2001 am 28.04.2006 um 15:01 Uhr (0)
Hallo,hab jetzt nach knapp 3 Jahren das Problem auch Hat da mittlerweile einer eine Lösung?Ich habe eine Skizze (siehe Anhang) in geschachtelten Geometrischen Sets und will alle Instanzen mit der Parent Eigenschaft durchlaufen.Nur Catia überspringt immer ein Geometrisches Set.Sub CATMain()Set MyParent = CATIA.ActiveDocument.Selection.Item(1).ValueDo Set MyParent = MyParent.Parent Debug.Print MyParent.NameLoop Until MyParent.Name = "CNEXT"End SubIch bekommen folgende Liste:SketchesINSTANZ_10HybridBo ...
|
| In das Form CATIA V5 Programmierung wechseln |
